home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
LB09D.ZIP
/
GRAPHICS.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-03-26
|
456b
|
22 lines
' This is a turtle graphics demo
button #1, Test, Test, LR, 5, 5
open "This is a turtle graphics window!" for graphics as #1
print #1, "home ; down ; north"
for x = 1 to 100
print #1, "turn 54 ; go "; str$(x*2)
go$ = "turn 59 ; go "; str$(int(x/10))
for y = 1 to 6
print #1, go$
next y
next x
print #1, "flush"
input "press 'return'" ; r$
close #1